home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / CDROM / IDE-fix / InstallSoftware < prev    next >
Text File  |  1997-09-25  |  33KB  |  1,239 lines
  1. ;$VER: IDEfix Install 48.9 (26.09.97)
  2. ;Copyright ©1993-1997 Elaborate Bytes, Oliver Kastl
  3.  
  4. ( set #ControlDefault 1 )
  5.  
  6. (onerror
  7.     (makeassign "CacheCDFSInst" (safe))
  8.     (makeassign "CacheCDFS" (safe))
  9. )
  10.  
  11. (set #autoMount 1)
  12. (set #CDDevice_NC "CD" )
  13. (set #instEjectCD 1)
  14. (set #instEject 1)
  15. (set #ReplaceOld 1 )
  16. (set #DeleteOld 1 )
  17.  
  18. (set #wbversion (getversion "libs:version.library"))
  19. (set #wbversion (/ #wbversion 65536) )
  20.  
  21. (complete 0)
  22.  
  23. (if (< #wbversion 37)
  24.     (abort "\n\nAmigaDOS 2.04 or higher is required for CacheCDFS! "
  25.              "\n\nAn upgrade will be needed for your Amiga." )
  26. )
  27.  
  28.  
  29. ;(if (< (getdiskspace "SYS:") 409600)
  30. ;    (abort "\n\nApproximately 400K of disk space is needed on your SYS: volume."
  31. ;             "\n\nYou only have " (/ (getdiskspace "SYS:") 1024)    "K free.\n\n"
  32. ;             "Delete or transfer some files from the SYS: volume and try again." )
  33. ;)
  34.  
  35. (makeassign "CacheCDFSInst" "" ( safe) )
  36.  
  37.  
  38. (set #theirlevel @user-level )
  39.  
  40. (set #Match ( run "CacheCDFSInst:CheckIDEfix" ( safe ) ) )
  41.  
  42. (user 2)
  43.  
  44. (message "\nWelcome to IDE-fix, CacheCDFS2, CD32-Emulator and PlayCD!"
  45.             "\n\nThis package is the complete solution for all your IDE and CD-ROM problems! " 
  46.          "\n\n"
  47.          "IDEfix allows you to use 4 harddisks and SyQuest drives with your IDE port, "
  48.          "ATAPI controls IDE CD-Roms, "
  49.          "CacheCDFS, PlayCD and CD32-Emulator power any IDE or SCSI-II CD-Rom!"
  50.          "\n\nEnjoy it! " )
  51.  
  52.  
  53. ( if (NOT @pretend )
  54.    (
  55.    (if ( run "CacheCDFSInst:Register/Register" )
  56.        (
  57.        (abort)
  58.        )
  59.     )
  60. ))
  61.  
  62. (set #DefaultDir (tackon @default-dest "IDEfix97"))
  63.  
  64. (set #CDFSDir
  65.     (askdir
  66.         (prompt "\n\nSpecify the directory in which the support programs will be placed:" )
  67.         (help "\n\nIDE-fix and CacheCDFS contain a number of support programs. "
  68.         "This directory will specifiy where the programs will be placed. "
  69.         "If you need, create a separate directory for the files.")
  70.         (default #DefaultDir)
  71.         (newpath)
  72.     )
  73. )
  74.  
  75. (user #theirlevel)
  76.  
  77. (if (NOT (exists #CDFSDir ))
  78.     (
  79.     (makedir #CDFSDir
  80.         (safe)
  81.         (infos)
  82.     )
  83.     )
  84. )
  85.  
  86. (set @default-dest #CDFSDir)
  87.  
  88.  
  89. (makeassign "CacheCDFS" #CDFSDir (safe))
  90.  
  91. (if (NOT (exists "CacheCDFS:Backup" ))
  92.     (
  93.  
  94.     (copyfiles
  95.         (source "CacheCDFSInst:C/BackupIDEFixInstall")
  96.         (prompt )
  97.         (help )
  98.         (infos)
  99.         (dest "CacheCDFS:")
  100.     )
  101.  
  102.     (copyfiles
  103.         (source "CacheCDFSInst:C/UnInstall")
  104.         (prompt )
  105.         (help )
  106.         (infos)
  107.         (dest "CacheCDFS:")
  108.     )
  109.  
  110.     (working "\nBacking up old installation ..." )
  111.  
  112.     
  113.     ( if (NOT @pretend )
  114.        (
  115.         (if ( run "CacheCDFS:BackupIDEfixInstall CacheCDFS:Backup save" )
  116.             (
  117.             (abort)
  118.             )
  119.         )
  120.     ))
  121.     )
  122. )
  123.  
  124. (if (exists "CacheCDFSInst:Installer" )
  125.     (
  126.     (copylib
  127.         (source "CacheCDFSInst:Installer")
  128.         (dest "SYS:Utilities")
  129.     )
  130. ))
  131.  
  132. (working "\nUpdating your System ..." )
  133.  
  134. ( if (NOT @pretend )
  135.    (
  136.     (if ( run "CacheCDFSInst:C/CopyIDELibs CacheCDFSInst:" )
  137.         (
  138.         (message "\n\nPlease reboot your Amiga and start this installation program again!" )
  139.         (makeassign "CacheCDFSInst" (safe))
  140.         (makeassign "CacheCDFS" (safe))
  141.         (exit (quiet ))
  142.         ))
  143.     )
  144. )
  145.  
  146. (copyfiles
  147.     (source "CacheCDFSInst:Register")
  148.     (prompt )
  149.     (help )
  150.     (infos)
  151.     (all)
  152.     (dest "CacheCDFS:Register")
  153. )
  154.     
  155. (tooltype
  156.     (dest "CacheCDFS:Register" )
  157.     (noposition)
  158. )
  159.  
  160. (copylib
  161.     (prompt "This will copy the FormatATAPI program to your C: directory.")
  162.     (help "This will copy the FormatATAPI program to your C: directory.")
  163.     (source "CacheCDFSInst:C/FormatATAPI")
  164.     (confirm)
  165.     (dest "C:")
  166. )
  167.  
  168. (copyfiles
  169.     (prompt "This will copy Icons for the FormatATAPI and MountLS120 programs "
  170.         "to your Harddisk.")
  171.     (help "This will copy Icons for the FormatATAPI and MountLS120 programs "
  172.         "to your Harddisk.")
  173.     (source "CacheCDFSInst:LS120")
  174.     (infos)
  175.     (all)
  176.     (confirm)
  177.     (dest "CacheCDFS:LS120")
  178. )
  179.     
  180. (copyfiles
  181.     (source "CacheCDFSInst:C/InstallLS120")
  182.     (prompt )
  183.     (help )
  184.     (infos)
  185.     (dest "CacheCDFS:")
  186. )
  187.  
  188. (protect "CacheCDFS:FindDevice" "rwed" )
  189. (protect "CacheCDFS:FindDevice.info" "rwed" )
  190.  
  191. (copylib
  192.     (prompt "\n\nCopying the FindDevice program to the "
  193.               "CacheCDFS: directory.\n" )
  194.     (source "CacheCDFSInst:FindDevice")
  195.     (dest "CacheCDFS:")
  196.     (infos)
  197.     (safe)
  198.     (help "\n\nThis will copy over the FindDevice "
  199.             "program to your CacheCDFS: directory\n\nIf you do not "
  200.             "wish the FindDevice program to be transferred to your system, "
  201.             "skip this step." )
  202. )
  203.  
  204. (tooltype
  205.     (dest "CacheCDFS:FindDevice" )
  206.     (noposition)
  207. )
  208.  
  209.  
  210.     (copyfiles
  211.         (prompt "This will copy additional documentation "
  212.             "to your Harddisk. ")
  213.         (help "This will copy additional documentation "
  214.             "to your Harddisk. ")
  215.         (source "CacheCDFSInst:Docs")
  216.         (infos)
  217.         (all)
  218.         (confirm)
  219.         (dest "CacheCDFS:Docs")
  220.     )
  221.     
  222. (tooltype
  223.     (dest "CacheCDFS:Docs" )
  224.     (noposition)
  225. )
  226.  
  227.  
  228. (if (exists "CacheCDFS:FindCD" )
  229.     (
  230.     (protect "CacheCDFS:FindCD" "rwed" )
  231.     (delete "CacheCDFS:FindCD" )
  232.     )
  233. )
  234.  
  235. (if (exists "CacheCDFS:FindCD.info" )
  236.     (
  237.     (protect "CacheCDFS:FindCD.info" "rwed" )
  238.     (delete "CacheCDFS:FindCD.info" )
  239.     )
  240. )
  241.  
  242. (if (exists "L:TandemCacheCDFS" )
  243.     (
  244.     ((set #DeleteOld
  245.         (askbool
  246.         (prompt "\n\n\"L:TandemCacheCDFS\" is present from an earlier installation."
  247.                 "\n\nDelete \"L:TandemCacheCDFS\" ?" )
  248.         (help "\n\nClick \"YES\" if \"L:TandemCacheCDFS\" should be "
  249.               "deleted and \"NO\" if not!")
  250.         (default 1)
  251.         )
  252.     ))
  253.  
  254.     (if #DeleteOld
  255.     ((protect "L:TandemCacheCDFS" "rwed" )
  256.     (delete "L:TandemCacheCDFS" )
  257.     ))
  258. ))
  259.  
  260. (if (exists "L:DemoCacheCDFS" )
  261.     (
  262.     ((set #DeleteOld
  263.         (askbool
  264.         (prompt "\n\n\"L:DemoCacheCDFS\" is present from an earlier installation."
  265.                 "\n\nDelete \"L:DemoCacheCDFS\" ?" )
  266.         (help "\n\nClick \"YES\" if \"L:DemoCacheCDFS\" should be "
  267.               "deleted and \"NO\" if not!")
  268.         (default 1)
  269.         )
  270.     ))
  271.  
  272.     (if #DeleteOld
  273.     ((protect "L:DemoCacheCDFS" "rwed" )
  274.     (delete "L:DemoCacheCDFS" )
  275.     ))
  276. ))
  277.  
  278. (if (= #Match 0)
  279.     (
  280.     (copylib
  281.         (prompt "This will copy the Ship program to your C: directory.")
  282.         (help "This will copy the Ship program to your C: directory.")
  283.         (source "CacheCDFSInst:C/Ship")
  284.         (confirm)
  285.         (dest "C:")
  286.     )
  287.  
  288.     (copylib
  289.         (prompt "This will copy the ActivateCrossIDEfix program to your C: directory.")
  290.         (help "This will copy the ActicateCrossIDEfix program to your C: directory.")
  291.         (source "CacheCDFSInst:C/ActivateCrossIDEfix")
  292.         (confirm)
  293.         (dest "C:")
  294.     )
  295.  
  296.     (startup "ActivateCrossIDEfix"
  297.         (command "ActivateCrossIDEfix ALL\n" )
  298.         (prompt "\n\nInserting ActivateCrossIDEfix into the user-startup")
  299.         (help "\n\nInserting ActivateCrossIDEfix into the user-startup")
  300.     )
  301.  
  302.     (copylib
  303.         (prompt "This will copy the MountIDE program to your C: directory.")
  304.         (help "This will copy the MountIDE program to your C: directory.")
  305.         (source "CacheCDFSInst:C/MountIDE")
  306.         (confirm)
  307.         (dest "C:")
  308.     )
  309.  
  310.     (copylib
  311.         (prompt "This will copy the ConvertDrive program to your C: directory.")
  312.         (help "This will copy the ConvertDrive program to your C: directory.")
  313.         (source "CacheCDFSInst:C/ConvertDrive")
  314.         (confirm)
  315.         (dest "C:")
  316.     )
  317.  
  318.     (copylib
  319.         (prompt "This will copy the AutoParkPrefs program to your SYS:Prefs directory.")
  320.         (help "This will copy the AutoParkPrefs program to your SYS:Prefs directory.")
  321.         (source "CacheCDFSInst:Prefs/AutoParkPrefs")
  322.         (infos)
  323.         (confirm)
  324.         (dest "SYS:Prefs")
  325.     )
  326.  
  327.     (tooltype
  328.         (dest "SYS:Prefs/AutoParkPrefs" )
  329.         (noposition)
  330.     )
  331.  
  332.     (copyfiles
  333.         (prompt "This will copy Icons for the Ship and MountIDE programs "
  334.             "to your Harddisk. You can copy these Icons wherever you like, e.g. in your "
  335.             "SYS:WBStartUp drawer.")
  336.         (help "This will copy Icons for the Ship and MountIDE programs "
  337.             "to your Harddisk. You can copy these Icons wherever you like, e.g. in your "
  338.             "SYS:WBStartUp drawer.")
  339.         (source "CacheCDFSInst:Harddisk")
  340.         (infos)
  341.         (all)
  342.         (confirm)
  343.         (dest "CacheCDFS:Harddisk")
  344.     )
  345.     
  346.  
  347.     (tooltype
  348.         (dest "CacheCDFS:Harddisk" )
  349.         (noposition)
  350.     )
  351.  
  352.     (user 2)
  353.  
  354.     (message "\nIMPORTANT:\n\n"
  355.                 "IDEfix and LoadIDE are installed in your C: "
  356.              "directory, but You MUST start IDEfix manually, as this program "
  357.              "will NOT alter your startup-sequence! "
  358.              "\n\nEnter \"IDEfix\" or \"LoadIDE reset\" behind SetPatch in your startup-sequence "
  359.              "to use IDEfix! "
  360.              "\n\nPlease click PROCEED now.")
  361.  
  362.     (message "\nNote:\n\nYou can use \"AutoParkPrefs\" in you SYS:Prefs directory to adjust autoparking "
  363.              "of your harddrives. Autoparking switches off the motor of a drive, if the drive is "
  364.              "not used for a certain amount of time."
  365.              "\n\nPlease click PROCEED now.")
  366.  
  367.     (message "\nNote:\n\nYou can use \"ConvertDrive\" to convert drives formatted with old controllers "
  368.              "like Apollo AT or GVP AT!\n\n"
  369.              "Enter \"ConvertDrive <device> <unit>\" from the Shell. "
  370.              "\n\nPlease click PROCEED now.")
  371.  
  372.     (message "\nNote:\n\n"
  373.              "Use \"Ship\" to park your harddisks!\n\n"
  374.              "Use \"MountIDE force\" to mount additional SyQuest cartridges!"
  375.              "\n\n\nClick PROCEED to install CD-ROMs.\n\nClick ABORT to quit.")
  376.  
  377.  
  378. ;    ( run "C:IDEfix" )
  379.     )
  380. )
  381.  
  382. (user 2)
  383.  
  384. (message "\n\nNow the FindDevice program will be launched to find "
  385.          "the Device and Unit of your CD-Rom..."
  386.          "\n\nYou may let the program scan for CD-Roms by clicking \"SCAN\"."
  387.          "\n\nChoose the device and unit and click \"USE\"!"
  388.          "\n\nIf FindDevice hangs: Reboot, start the installation again and "
  389.          "click CANCEL within FindDevice!")
  390.  
  391. (working "\n\nLaunching the FindDevice program to find "
  392.          "the Device and Unit of your CD-Rom..."
  393.          "\n\nYou may let the program scan for CD-Roms by clicking \"SCAN\"."
  394.          "\n\nChoose the device and unit and click \"USE\"!"
  395.          "\n\nIf FindDevice hangs: Reboot, start the installation again and "
  396.          "click CANCEL within FindDevice!")
  397.  
  398. (set #Product ( run "CacheCDFS:FindDevice" ( safe ) ) )
  399.  
  400.  
  401. (if (= #Product 0 )
  402.     (
  403.     ( set #CDROM_Device (getenv "CDROM_Device" ))
  404.     ( set #CDROM_Unit (+ (getenv "CDROM_Unit" )))
  405.     ( set #CDROM_NumLuns (+ (getenv "CDROM_NumLuns" )))
  406.     )
  407.  
  408.     (
  409.     ( set #CDROM_NumLuns 1)
  410.     (set #CDROM_Device
  411.         (askstring
  412.             (prompt "\n\nWhat is the name for the exec device driver? " )
  413.             (default "scsi.device" )
  414.             (help "\n\nThis is the name of the device driver to use. "
  415.                     "The name is different for different configurations. "
  416.                     "\n\nConsult the manual of your SCSI/CD-Rom host adapter "
  417.                     "if you don't know the name!" )
  418.         )
  419.     )
  420.  
  421.     (set #CDROM_Unit
  422.         (asknumber
  423.             (prompt "\n\nWhat is the Unit number of your CD-Rom drive?" )
  424.             (default 5 )
  425.             (help "\n\nThis is the unit # of the CD-Rom drive.  This is usually a "
  426.                     "numerical value between 0 and 7." )
  427.         )
  428.     )
  429.  
  430.     )
  431. )
  432.  
  433.     (set #CDROM_NumLuns
  434.         (asknumber
  435.             (prompt "\n\nHow many discs fit in your CD-Rom drive?" )
  436.             (default #CDROM_NumLuns )
  437.             (help "\nThis is the number of logical units of the CD-Rom drive. This is usually a "
  438.                     "numerical value between 1 and 8.\n\n"
  439.                     "If you have a normal CD-Rom, set this to 1.\n\n"
  440.                     "If you have a CD-Rom changer, enter the number of discs that fit in your drive!" )
  441.         )
  442.     )
  443.  
  444. (user #theirlevel)
  445.  
  446. (set #DevFlags 0)
  447.  
  448. (set #Match ( run "CacheCDFSInst:MatchPattern NAME="#CDROM_Device" PATTERN=(telmexatapi#?|#?pcmcia#?)" ( safe ) ) )
  449.  
  450. (if (= #Match 0)
  451.     (
  452.     (set #DevFlags 1)
  453.     )
  454. )
  455.  
  456. (set #Match ( run "CacheCDFSInst:MatchPattern NAME="#CDROM_Device" PATTERN=(tandem#?|#?atapi#?|oktagon#?)" ( safe ) ) )
  457.  
  458. (if (= #Match 0)
  459.     ((set #ControlDefault 2))
  460. )
  461.  
  462. (set #Match ( run "CacheCDFSInst:MatchPattern NAME="#CDROM_Device" PATTERN=(scsi.#?|???.scsi.#?)" ( safe ) ) )
  463.  
  464. (if (= #Match 0)
  465.     ((set #ControlDefault 5))
  466. )
  467.  
  468. (if (= #CDROM_Device "gvpscsi.device")
  469.     ((set #ControlDefault 8))
  470. )
  471.  
  472.  
  473. (complete 20 )
  474.  
  475. (user 2)
  476.  
  477. (set #ControlMask 
  478.     (askoptions
  479.         (prompt "FileSystem -> Controller Configuration")
  480.         (choices "Use SCSI Direct" 
  481.                     "Use Diskchange Interrupt"
  482.                     "Use 24 Bit-DMA"
  483.                     "Use Motor off" )
  484.         (help    "Here You may define the behaviour of the CacheCDFS accessing the " 
  485.               #CDROM_Device ". If you are "
  486.                 "not sure what option is correct, leave the default settings as they "
  487.                 "are. They should work in most cases.\n"
  488.                 "These options may later be altered using the CDFSprefs program. "
  489.                 "However, wrong settings may lead to crashes if you mount the "
  490.                 "FileSystem!\n"
  491.                 "IF YOU HAVE A TANDEMCD / CD1200: YOU MUST DISABLE \"USE SCSI DIRECT\"!\n\n"
  492.  
  493.                 "\"Use SCSI Direct\"\n"
  494.                 "Choose this option if the SCSI controller using "
  495.                 #CDROM_Device " cannot handle DoIO reads with 2048 bytes sectorsize "
  496.                 "correctly (e.g. ALFII, controllers from Progressive Peripherals, Emplant).\n"
  497.                 "Do NOT choose this option if your controller is a modern, well designed "
  498.                 "SCSI controller (ALFIII, Oktagon, A2091, A3000, A4091) or if it is "
  499.                 "NO SCSI controller at all (TandemCD)!\n\n"
  500.  
  501.                 "\"Use Diskchange Interrupt\"\n"
  502.                 "Choose this option if the controller using "
  503.                 #CDROM_Device " does properly handle TD_ADDCHANGEINT and TD_REMCHANGEINT. "
  504.                 "All modern controllers should do this (ALFIII, Oktagon, TandemCD, "
  505.                 "GVP Series-II)\n"
  506.                 "Do NOT choose this option if your controller has problems with diskchange "
  507.                 "Interrupts (old ROM versions of A2091, A3000, A4091, controllers from "
  508.                 "Progressive Peripherals, Emplant)\n\n"
  509.  
  510.                 "\"Use 24 Bit-DMA\"\n"
  511.                 "Choose this option if the SCSI or CD controller using "
  512.                 #CDROM_Device " is a 24-Bit (Zorro II) DMA device "
  513.                 "(e.g. A2091 from Commodore).\n"
  514.                 "Do NOT choose this option if your controller is a 32-Bit "
  515.                 "(Zorro III) device (e.g. FastLane, A3000, A4091), or a non-DMA controller "
  516.                 "like the majority of controllers (e.g. ALFII/III, Oktagon, "
  517.                 "TandemCD, Golem, IVS TrumpCard, Supra) as it will lead to "
  518.                 "decreased performance!\n\n"
  519.  
  520.                 "\"Use Motor off\"\n"
  521.                 "Choose this option if the SCSI controller using "
  522.                 #CDROM_Device " is a GVP controller with \"Faaast\" roms.\n"
  523.                 "Do NOT choose this option if your controller is anything else."
  524.             )
  525.         (default #ControlDefault)
  526.     )
  527. )
  528.  
  529. (set #BufMemType  "1 /* MEMF_PUBLIC */\n" )
  530. (set #BufMemInt  1 )
  531.  
  532. (if (IN #ControlMask 2)
  533.     (
  534.     (set #BufMemType  "513 /* MEMF_PUBLIC|MEMF_24BITDMA */\n")
  535.     (set #BufMemInt  513 )
  536.     )
  537. )
  538.  
  539. (set #Control "\"MD=0 LC=1 DC=8 L LV AL LFC=1")
  540.  
  541.  
  542. (if (IN #ControlMask 0)
  543.     (
  544.     (set #Control (cat #Control " S"))
  545.     )
  546. )
  547.  
  548. (if (NOT (IN #ControlMask 1))
  549.     (
  550.     (set #Control (cat #Control " NC"))
  551.     )
  552. )
  553.  
  554. (if (IN #ControlMask 3)
  555.     (
  556.     (set #Control (cat #Control " M"))
  557.     )
  558. )
  559.  
  560.  
  561. (set #Control (cat #Control "\"\n"))
  562.  
  563.  
  564. (set #autoMount
  565.     (askbool
  566.         (prompt "\n\nWould you like the CD-Rom drive automatically mounted upon bootup?\n\n"
  567.                 "NOTE: If you are unsure if your controller will work correctly with "
  568.                 "the controller settings, you should select \"NO\"!" )
  569.         (help "\n\nIf you would like, the appropriate commands will be added to your user-startup file to automatically mount CacheCDFS.")
  570.         (default 1)
  571.     )
  572. )
  573.  
  574.  
  575. (if #autoMount
  576.     (set #mountDirectory "DEVS:DOSDrivers")
  577. )
  578.  
  579. (if (not #autoMount)
  580.     (set #mountDirectory "SYS:Storage/DOSDrivers")
  581. )
  582.  
  583. (complete 30 )
  584.  
  585. (user 1)
  586.  
  587. (set #tempCDDevice_NC #CDDevice_NC )
  588. (set #CDROM_ID (/ #CDROM_Unit 100 ))
  589. (set #CDROM_ID (- #CDROM_Unit (* #CDROM_ID 100 )))
  590.  
  591. (if (> #CDROM_NumLuns 1 )
  592.     (
  593.     (if
  594.     ( NOT (askbool
  595.         (prompt "\nYour CD-Rom changer has " #CDROM_NumLuns " discs.\n\n"
  596.                 "Do you wish to access them through different device names?" )
  597.         (help "\n\nClicking YES will mount every disc individually.")
  598.         (default 1)
  599.     ))
  600.     (set #CDROM_NumLuns 1 )
  601.     )
  602.     )
  603. )
  604.  
  605. (set #SlotNumber 0 )
  606.  
  607. ( until (= #CDROM_NumLuns #SlotNumber )
  608.  
  609. (set #CD_DeviceUnit (+ #CDROM_ID (* #SlotNumber 10 )))
  610. (set #CDDevice_NC (cat #tempCDDevice_NC #CD_DeviceUnit))
  611.  
  612. (user 2)
  613.  
  614. (set #CDDevice_NC
  615.     (askstring
  616.         (prompt "\n\nWhat is the name for the AmigaDOS device?\n\n"
  617.         "(The trailing colon MUST NOT be present)" 
  618.         )
  619.         (default #CDDevice_NC )
  620.         (help "\n\nThis is the name under which AmigaDOS will reference the "
  621.                 "CD-Rom as.  While usually "
  622.                 #CDDevice_NC
  623.                 ", it can be any name you choose. "
  624.                 "\n\nThe trailing : (colon) MUST NOT be present." )
  625.     )
  626. )
  627.  
  628. (user #theirlevel)
  629.  
  630. (set #CDDevice (cat #CDDevice_NC ":") )
  631.  
  632. (if (< #wbversion 38)
  633.     ((set #startupCommand (cat "mount " #CDDevice " from devs:MountList." #CDDevice_NC "\n") )
  634.  
  635.     (if #autoMount
  636.         (
  637.  
  638.         (if (NOT (EXISTS "S:IDEfixUserStartup" ))
  639.         ((textfile
  640.             (dest "S:IDEfixUserStartup" )
  641.             (append "; IDEfix User Startup\n"
  642.                       "; © 1997 Elaborate Bytes, O. Kastl\n"
  643.                       "\n")
  644.             )
  645.         (protect "S:IDEfixUserStartup" "srwed" )
  646.         ))
  647.  
  648.         (startup "CacheCDFS"
  649.             (command "IF EXISTS S:IDEfixUserStartup\n"
  650.                      "   EXECUTE S:IDEfixUserStartup\n"
  651.                      "ENDIF\n" )
  652.             (prompt "\n\nInserting IDEfix User Startup into the user-startup")
  653.             (help "\n\nInserting IDEfix User Startup into the user-startup")
  654.         )
  655.  
  656.         (textfile
  657.         (dest "S:IDEfixUserStartup" )
  658.         (include "S:IDEfixUserStartup" )
  659.         (append #startupCommand )
  660.         )
  661.         )
  662.     )
  663.  
  664.     (if (exists (cat "devs:MountList." #CDDevice_NC ) )
  665.         ((set #ReplaceOld
  666.             (askbool
  667.             (prompt "\n\nDEVS:MountList." #CDDevice_NC" already exists!\n\n"
  668.                     "Do you want to replace it?" )
  669.             (help "\n\nClick \"YES\" if DEVS:MountList."#CDDevice_NC" should be "
  670.                   "replaced and \"NO\" if not!")
  671.             (default 1)
  672.             )
  673.         ))
  674.     )
  675.  
  676.     (if #ReplaceOld
  677.  
  678.     ((protect (cat "devs:MountList." #CDDevice_NC) "rwed" )
  679.  
  680.     (textfile
  681.         (dest (cat "devs:MountList." #CDDevice_NC) )
  682.         (append "/***************************************************************/\n"
  683.                   "/*  CacheCDFS mountlist entry © 1993 Elaborate Bytes, O. Kastl */\n"
  684.                   "/***************************************************************/\n")
  685.         (append #CDDevice "\n")
  686.         (append "    FileSystem     = L:CacheCDFS /* The name of the game */\n" )
  687.         (append "    Device         = \""#CDROM_Device"\" /* Name of exec device driver */\n" )
  688.         (append "    Unit           = " #CD_DeviceUnit " /* exec device unit */\n" )
  689.         (append "    Flags          = " #DevFlags " /* OpenDevice flags */\n")
  690.         (append "    BlocksPerTrack = 351000 /* Unused */\n")
  691.         (append "    BlockSize      = 2048 /* True, but unused */\n")
  692.         (append "    Mask           = 0x7ffffffe /* Memory mask for direct read */\n")
  693.         (append "    MaxTransfer    = 0x1000000 /* Maximum amount of bytes for direct read */\n")
  694.         (append "    Reserved       = 0 /* Unused */\n")
  695.         (append "    Interleave     = 0 /* Unused */\n")
  696.         (append "    LowCyl         = 0 /* Unused */\n")
  697.         (append "    HighCyl        = 0 /* Unused */\n")
  698.         (append "    Surfaces       = 1 /* Unused */\n")
  699.         (append "    Buffers        = 50 /* Number of cache lines */\n")
  700.         (append "    BufMemType     = " #BufMemType )
  701.         (append "    GlobVec        = -1 /* Do not change! */\n")
  702.         (append "    Mount          = 1 /* Mount it immediately */\n")
  703.         (append "    Priority       = 10 /* Priority of FileSystem task */\n")
  704.         (append "    DosType        = 0x43443031 /* Currently unused */\n")
  705.         (append "    StackSize      = 3000 /* Minimum stack required is 3000! */\n")
  706.         (append "    Control        = "#Control)
  707.         (append "   /* The Control field is for special adjustments */\n")
  708.         (append "   /* L/S convert all file names to lowercase */\n")
  709.         (append "   /* LV/S convert volume names to lowercase */\n")
  710.         (append "   /* AL/S Auto-Lower converts only non-Amiga CDs */\n")
  711.         (append "   /* LFC/N start converting at this character */\n")
  712.         (append "   /* LC/N/A number of blocks per cache line */\n")
  713.         (append "   /* DC/N/A number of cache lines for the data cache */\n")
  714.         (append "   /* MD/N/A number of blocks, when starting direct read, not using */\n")
  715.         (append "   /* the cache. 0 will be a reasonable default (LC*DC+1) */\n")
  716.         (append "   /* S/S Do SCSI direct commands, no Trackdisk like commands! */\n")
  717.         (append "   /* NC/S Do NOT use TD_ADDCHANGEINT, poll for DiskChange! */\n")
  718.         (append "   /* M/S Issue a TD_MOTOR (OFF) command after read */\n")
  719.         (append "#\n")
  720.     )
  721.     (protect (cat "devs:MountList." #CDDevice_NC) "-e" )
  722.     )
  723.     )
  724. ))
  725.  
  726.  
  727.  
  728. (if (> #wbversion 37)
  729.     (
  730.  
  731.     (if (exists (tackon #mountDirectory #CDDevice_NC ) )
  732.         ((set #ReplaceOld
  733.             (askbool
  734.             (prompt "\n\n" (tackon #mountDirectory #CDDevice_NC) " already exists!\n\n"
  735.                     "Do you want to replace it?" )
  736.             (help "\n\nClick \"YES\" if " (tackon #mountDirectory #CDDevice_NC) " should be "
  737.                   "replaced and \"NO\" if not!")
  738.             (default 1)
  739.             )
  740.         ))
  741.     )
  742.  
  743.     (if #ReplaceOld
  744.  
  745.     ((protect (tackon #mountDirectory #CDDevice_NC) "rwed" )
  746.  
  747.     (textfile
  748.         (dest (tackon #mountDirectory #CDDevice_NC) )
  749.         (append "/***************************************************************/\n"
  750.                   "/*  CacheCDFS mountlist entry © 1993 Elaborate Bytes, O. Kastl */\n"
  751.                   "/***************************************************************/\n")
  752.         (append "    FileSystem     = L:CacheCDFS /* The name of the game */\n" )
  753.         (append "    Device         = \""#CDROM_Device"\" /* Name of exec device driver */\n" )
  754.         (append "    Unit           = " #CD_DeviceUnit " /* exec device unit */\n" )
  755.         (append "    Flags          = " #DevFlags " /* OpenDevice flags */\n")
  756.         (append "    BlocksPerTrack = 351000 /* Unused */\n")
  757.         (append "    BlockSize      = 2048 /* True, but unused */\n")
  758.         (append "    Mask           = 0x7ffffffe /* Memory mask for direct read */\n")
  759.         (append "    MaxTransfer    = 0x1000000 /* Maximum amount of bytes for direct read */\n")
  760.         (append "    Reserved       = 0 /* Unused */\n")
  761.         (append "    Interleave     = 0 /* Unused */\n")
  762.         (append "    LowCyl         = 0 /* Unused */\n")
  763.         (append "    HighCyl        = 0 /* Unused */\n")
  764.         (append "    Surfaces       = 1 /* Unused */\n")
  765.         (append "    Buffers        = 50 /* Number of cache lines */\n")
  766.         (append "    BufMemType     = " #BufMemType )
  767.         (append "    GlobVec        = -1 /* Do not change! */\n")
  768.         (append "    Mount          = 1 /* Mount it immediately */\n")
  769.         (append "    Priority       = 10 /* Priority of FileSystem task */\n")
  770.         (append "    DosType        = 0x43443031 /* Currently unused */\n")
  771.         (append "    StackSize      = 3000 /* Minimum stack required is 3000! */\n")
  772.         (append "    Control        = "#Control)
  773.         (append "   /* The Control field is for special adjustments */\n")
  774.         (append "   /* L/S convert all file/volume names to lowercase */\n")
  775.         (append "   /* LV/S convert volume names to lowercase */\n")
  776.         (append "   /* AL/S Auto-Lower converts only non-Amiga CDs */\n")
  777.         (append "   /* LFC/N start converting at this character */\n")
  778.         (append "   /* LC/N/A number of blocks per cache line */\n")
  779.         (append "   /* DC/N/A number of cache lines for the data cache */\n")
  780.         (append "   /* MD/N/A number of blocks, when starting direct read, not using */\n")
  781.         (append "   /* the cache. 0 will be a reasonable default (LC*DC+1) */\n")
  782.         (append "   /* S/S Do SCSI direct commands, no Trackdisk like commands! */\n")
  783.         (append "   /* NC/S Do NOT use TD_ADDCHANGEINT, poll for DiskChange! */\n")
  784.         (append "   /* M/S Issue a TD_MOTOR (OFF) command after read */\n")
  785.     )
  786.  
  787.     (protect (tackon #mountDirectory #CDDevice_NC) "-e" )
  788.  
  789.     (copyfiles
  790.             (prompt "\n\nCopying Mountlist icon")
  791.             (source "CacheCDFSInst:Devs/DOSDrivers/CD0.info")
  792.             (dest #mountDirectory)
  793.             (newname (cat #CDDevice_NC ".info"))
  794.             (help "\n\nThis will copy over an icon for the mountlist file.")
  795.             (confirm)
  796.  
  797.     ))
  798.     )
  799.  
  800.     (protect "S:User-Startup" "srwed" )
  801.     (startup "CacheCDFS"
  802.         (prompt "\n\nRemoving MOUNT command from the startup-sequence")
  803.         (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" will be removed from your "
  804.                 "\"S:Startup-Sequence\" or \"S:User-Startup\" file if it is present from "
  805.                 "an earlier installation." )
  806.         )
  807.  
  808.     (if ( exists ( cat "devs:MountList." #CDDevice_NC ) )
  809.  
  810.         ((protect (cat "devs:MountList." #CDDevice_NC) "rwed " )
  811.         (delete (cat "devs:MountList." #CDDevice_NC)
  812.             (prompt "\n\nDeleting file \"DEVS:MOUNTLIST." #CDDevice_NC "\"" )
  813.             (help "\n\nThe file \"DEVS:MOUNTLIST." #CDDevice_NC "\" will be deleted "
  814.                     "if it is present from an earlier installation." )
  815.             (confirm)
  816.             )
  817.         ))
  818.     )
  819. )
  820.  
  821. (set #SlotNumber (+ #SlotNumber 1 ))
  822.  
  823. (set #doMount
  824.     (askbool
  825.     (prompt "\n\nMount " #CDDevice " now ?")
  826.     (help "Select, if your CD-Rom should be mounted now, or not.")
  827.     (default 1)
  828.     )
  829. )
  830.  
  831. ( if @pretend ((set #doMount 0))) 
  832.  
  833. (if #doMount
  834.     (
  835.     (working "\n\nMounting CD-Rom...."
  836.              "\n\nPlease Wait!")
  837.  
  838.         ( run (cat "CacheCDFSInst:KillDev " #CDDevice " Quiet"))
  839.  
  840.         (if (< #wbversion 38)
  841.             (
  842.             (run (cat "C:Mount " #CDDevice " from devs:MountList." #CDDevice_NC ))
  843.             )
  844.         )
  845.  
  846.         (if (> #wbversion 37)
  847.             (
  848.                 (run (cat "C:Mount " #CDDevice  ))
  849.             )
  850.         )
  851. ))
  852.  
  853. )
  854.  
  855. (complete 40 )
  856.  
  857. (if ( NOT (= #theirlevel 2 ) )
  858.     (
  859.     (set #instChanger ( NOT ( run "CacheCDFSInst:Changer DEVICE="#CDROM_Device" UNIT="#CDROM_Unit" TEST" ( safe ) ) ) )
  860.     )
  861. )
  862.  
  863. (if (= #theirlevel 2 )
  864.     (
  865.     (set #instChanger 1)
  866.     )
  867. )
  868.  
  869. (if #instChanger
  870.     ((set #instChanger
  871.         (askbool
  872.             (prompt "\n\nShould the ATAPI Changer utility be installed?\n\n"
  873.                       "NOTE: This program is only required, if you have an ATAPI "
  874.                       "CD-ROM changer!" )
  875.             (help "\n\nThis will copy over the ATAPI Changer utility "
  876.                     "to your harddisk.\n\nIf you do not "
  877.                     "wish the Changer program to be transferred to your system, "
  878.                     "skip this step.\n" )
  879.             (default 1)
  880.         )
  881.     )
  882. ))
  883.  
  884. (if #instChanger
  885.     (
  886.     (if (exists "CacheCDFS:AtapiChanger" )
  887.         (
  888.         (protect "CacheCDFS:AtapiChanger" "rwed" )
  889.         (delete "CacheCDFS:AtapiChanger" )
  890.         )
  891.     )
  892.  
  893.     (if (exists "CacheCDFS:AtapiChanger.info" )
  894.         (
  895.         (protect "CacheCDFS:AtapiChanger.info" "rwed" )
  896.         (delete "CacheCDFS:AtapiChanger.info" )
  897.         )
  898.     )
  899.  
  900.     (protect "CacheCDFS:Changer" "rwed" )
  901.     (protect "CacheCDFS:Changer.info" "rwed" )
  902.     (copylib
  903.         (prompt "\n\nCopying the Changer program to the "
  904.                   "CacheCDFS: directory." )
  905.         (source "CacheCDFSInst:Changer")
  906.         (dest "CacheCDFS:")
  907.         (help "\n\nThis will copy over the ATAPI Changer utility "
  908.                 "to your harddisk.\n\nIf you do not "
  909.                 "wish the Changer program to be transferred to your system, "
  910.                 "skip this step.\n" )
  911.         (infos)
  912.         (confirm)
  913.     )
  914.  
  915.     (tooltype
  916.         (dest "CacheCDFS:Changer" )
  917.         (settooltype "DEVICE" #CDROM_Device )
  918.         (settooltype "UNIT" ("%ld" #CDROM_Unit ))
  919.         (noposition)
  920.     )
  921. ))
  922.  
  923. (complete 50 )
  924.  
  925. (set #instCDFSprefs
  926.     (askbool
  927.         (prompt "\n\nShould the CDFSprefs utility be installed?")
  928.         (help "\n\nThis will copy over the CDFSprefs utility "
  929.                 "to your SYS:Prefs directory\n\nIf you do not "
  930.                 "wish the CDFSprefs program to be transferred to your system, "
  931.                 "skip this step.\n" )
  932.         (default 1)
  933.     )
  934. )
  935.  
  936. (if #instCDFSprefs
  937.     ((protect "SYS:Prefs/CDFSprefs" "rwed" )
  938.     (protect "SYS:Prefs/CDFSprefs.info" "rwed" )
  939.     (copylib
  940.         (prompt "\n\nCopying the CDFSprefs program to the "
  941.                   "SYS:Prefs directory." )
  942.         (source "CacheCDFSInst:Prefs/CDFSprefs")
  943.         (dest "SYS:Prefs")
  944.         (infos)
  945.         (help "\n\nThis will copy over the CDFSprefs "
  946.                 "program to your SYS:Prefs directory\n\nIf you do not "
  947.                 "wish the CDFSprefs program to be transferred to your system, "
  948.                 "skip this step." )
  949.         (confirm)
  950.     )
  951.  
  952.     (tooltype
  953.         (dest "SYS:Prefs/CDFSprefs" )
  954.         (noposition)
  955.     )
  956. ))
  957.  
  958. (complete 60 )
  959.  
  960. (set #instKillDev
  961.     (askbool
  962.         (prompt "\n\nShould the KillDev utility be installed?")
  963.         (help "\n\nThis will copy over the KillDev utility "
  964.                 "to your CacheCDFS directory\n\nIf you do not "
  965.                 "wish the KillDev program to be transferred to your system, "
  966.                 "skip this step." )
  967.         (default 1)
  968.     )
  969. )
  970.  
  971. (if #instKillDev
  972.     ((protect "CacheCDFS:KillDev" "rwed" )
  973.     (protect "CacheCDFS:KillDev.info" "rwed" )
  974.     (copylib
  975.         (prompt "\n\nCopying the KillDev program to the "
  976.                   "CacheCDFS: directory.\n" )
  977.         (source "CacheCDFSInst:KillDev")
  978.         (dest "CacheCDFS:")
  979.         (infos)
  980.         (help "\n\nThis will copy over the KillDev "
  981.                 "program to your CacheCDFS: directory\n\nIf you do not "
  982.                 "wish the KillDev program to be transferred to your system, "
  983.                 "skip this step." )
  984.         (confirm)
  985.     )
  986.  
  987.     (tooltype
  988.         (dest "CacheCDFS:KillDev" )
  989.         (settooltype "DOSDEV" #CDDevice )
  990.         (noposition)
  991.     )
  992. ))
  993.  
  994. (if #instEject
  995.     (
  996.     (set #instEject
  997.     (askbool
  998.         (prompt "\n\nShould the Eject utility be installed?")
  999.         (help "\n\nThis will copy over the Eject utility "
  1000.                 "to your CDFS directory\n\nIf you do not "
  1001.                 "wish the Eject program to be transferred to your system, "
  1002.                 "skip this step.\n" )
  1003.         (default 1)
  1004.     )
  1005.     ))
  1006. )
  1007.  
  1008. (if #instEject
  1009.     ((protect "CacheCDFS:Eject" "rwed" )
  1010.     (protect "CacheCDFS:Eject.info" "rwed" )
  1011.     (copylib
  1012.         (prompt "\n\nCopying Eject program to the "
  1013.                   "CacheCDFS: directory.\n" )
  1014.         (source "CacheCDFSInst:Eject")
  1015.         (dest "CacheCDFS:")
  1016.         (help "\n\nThis will copy over the Eject utility "
  1017.                 "to your CacheCDFS directory\n\nIf you do not "
  1018.                 "wish the Eject program to be transferred to your system, "
  1019.                 "skip this step.\n" )
  1020.         (infos)
  1021.         (confirm)
  1022.     )
  1023.  
  1024. ))
  1025.  
  1026. (complete 70 )
  1027.  
  1028.  
  1029. (if #instEjectCD
  1030.     (
  1031.     (set #instEjectCD
  1032.     (askbool
  1033.         (prompt "\n\nShould the EjectCD utility be installed?")
  1034.         (help "\n\nThis will copy over the EjectCD utility "
  1035.                 "to your CDFS directory\n\nIf you do not "
  1036.                 "wish the EjectCD program to be transferred to your system, "
  1037.                 "skip this step.\n" )
  1038.         (default 1)
  1039.     )
  1040.     ))
  1041. )
  1042.  
  1043. (if #instEjectCD
  1044.     ((protect "CacheCDFS:EjectCD" "rwed" )
  1045.     (protect "CacheCDFS:EjectCD.info" "rwed" )
  1046.     (copylib
  1047.         (prompt "\n\nCopying EjectCD program to the "
  1048.                   "CacheCDFS: directory.\n" )
  1049.         (source "CacheCDFSInst:EjectCD")
  1050.         (dest "CacheCDFS:")
  1051.         (help "\n\nThis will copy over the EjectCD utility "
  1052.                 "to your CacheCDFS directory\n\nIf you do not "
  1053.                 "wish the EjectCD program to be transferred to your system, "
  1054.                 "skip this step.\n" )
  1055.         (infos)
  1056.         (confirm)
  1057.     )
  1058.  
  1059.     (tooltype
  1060.         (dest "CacheCDFS:EjectCD" )
  1061.         (settooltype "DEVICE" #CDROM_Device )
  1062.         (settooltype "UNIT" ("%ld" #CDROM_Unit ))
  1063.         (noposition)
  1064.     )
  1065. ))
  1066.  
  1067. (set #instPlayCD 0)
  1068.  
  1069. (if (exists "CacheCDFSInst:PlayCD.lha")
  1070.  
  1071. ((set #instPlayCD
  1072.     (askbool
  1073.         (prompt "\n\nShould the PlayCD Audio Player be installed?")
  1074.         (help "\n\nThis will copy over the PlayCD drawer "
  1075.                 "to your CacheCDFS directory\n\nIf you do not "
  1076.                 "wish the PlayCD drawer to be transferred to your system, "
  1077.                 "skip this step." )
  1078.         (default 1)
  1079.     )
  1080. )))
  1081.  
  1082. (if #instPlayCD
  1083.     (
  1084.  
  1085.     (working "\n\nDecrunching PlayCD...."
  1086.              "\n\nPlease Wait!")
  1087.  
  1088.     ( if (NOT @pretend )
  1089.     (( if ( run "CacheCDFSInst:c/lhex -afFqw=CacheCDFS: e CacheCDFSInst:PlayCD.lha" )
  1090.         (
  1091.         (abort "\n\nUnable to decrunch PlayCD!")
  1092.         )
  1093.     )))
  1094.  
  1095.  
  1096.     (tooltype
  1097.         (dest "CacheCDFS:PlayCD/PlayCD" )
  1098.         (settooltype "DEVICE" #CDROM_Device )
  1099.         (settooltype "UNIT" ("%ld" #CDROM_Unit ))
  1100.         (settooltype "BUFMEMTYPE" ("%ld" #BufMemInt ))
  1101.     )
  1102.     )
  1103. )
  1104.  
  1105. (complete 80 )
  1106.  
  1107.  
  1108. (set #instJukebox 0)
  1109.  
  1110. (if (exists "CacheCDFSInst:JukeBox.lha")
  1111. ((set #instJukebox
  1112.     (askbool
  1113.         (prompt "\n\nShould the JukeBox Audio Player be installed?")
  1114.         (help "\n\nThis will copy over the JukeBox drawer "
  1115.                 "to your CacheCDFS directory\n\nIf you do not "
  1116.                 "wish the JukeBox drawer to be transferred to your system, "
  1117.                 "skip this step." )
  1118.         (default 1)
  1119.     )
  1120. )))
  1121.  
  1122. (if #instJukebox
  1123.     (
  1124.     (protect "CacheCDFS:JukeBox" "rwed" )
  1125.     (protect "CacheCDFS:JukeBox.info" "rwed" )
  1126.     (makedir "CacheCDFS:JukeBox" 
  1127.         (infos)
  1128.         (prompt "\n\nCreating drawer for JukeBox\n")
  1129.         (help "\n\nThis will create a drawer for the JukeBox "
  1130.                 "Audio Player." )
  1131.     )
  1132.  
  1133.  
  1134. (working "\n\nDecrunching Jukebox...."
  1135.          "\n\nPlease Wait!")
  1136.  
  1137.     ( if (NOT @pretend )
  1138.     (( if ( run "CacheCDFSInst:c/lhex -qafFw=CacheCDFS:Jukebox e CacheCDFSInst:JukeBox.lha" )
  1139.         (
  1140.         (makeassign "JukeBox")
  1141.         (abort "\n\nUnable to decrunch JukeBox!")
  1142.         )
  1143.     )))
  1144.  
  1145.  
  1146.     (tooltype
  1147.         (dest "CacheCDFS:Jukebox/JukeBox" )
  1148.         (settooltype "DEVICE" #CDROM_Device )
  1149.         (settooltype "UNIT" ("%ld" #CDROM_Unit ))
  1150.     )
  1151.  
  1152. ))
  1153.  
  1154.  
  1155. (if (AND (> #wbversion 38) (exists "CacheCDFSInst:CD32.lha"))
  1156.  
  1157.     ((complete 90 )
  1158.  
  1159.     (set #instCD32
  1160.         (askbool
  1161.             (prompt "\n\nShould the CD32-Emulator be installed?"
  1162.                     "\n\nNote that the CD32-Emulator is completely useless "
  1163.                     "if you don't have an Amiga with AA/AGA chipset and "
  1164.                     "at least Kickstart version 3.0!")
  1165.             (help "\n\nThis will copy over the CD32 drawer "
  1166.                     "to your CacheCDFS directory\n\nIf you do not "
  1167.                     "wish the CD32 drawer to be transferred to your system, "
  1168.                     "skip this step.")
  1169.             (default 1)
  1170.         )
  1171.     )
  1172.  
  1173.     (if #instCD32
  1174.         (
  1175.         (working "\n\nDecrunching CD32...."
  1176.                  "\n\nPlease Wait!")
  1177.  
  1178.         ( if (NOT @pretend )
  1179.         (( if ( run "CacheCDFSInst:c/lhex -afFqw=CacheCDFS: e CacheCDFSInst:CD32.lha" )
  1180.             (
  1181.             (abort "\n\nUnable to decrunch CD32!")
  1182.             )
  1183.         )))
  1184.  
  1185.     
  1186.         (if (exists "CacheCDFSInst:CD32" )
  1187.             ((copylib
  1188.                 (prompt "This will copy the CD32 program.")
  1189.                 (help "This will copy the CD32 program.")
  1190.                 (source "CacheCDFSInst:CD32")
  1191.                 (infos)
  1192.                 (dest "CacheCDFS:CD32")
  1193.                 (confirm)
  1194.             ))
  1195.         )
  1196.  
  1197.  
  1198.         ( set #CDROM_Blocks 2 )
  1199.  
  1200.         (if (= #CDROM_Device "tandemcd.device")
  1201.             (
  1202.             ( set #CDROM_Blocks 4 )
  1203.             )
  1204.         )
  1205.  
  1206.         (if (= #CDROM_Device "tandemat.device")
  1207.             (
  1208.             ( set #CDROM_Blocks 4 )
  1209.             )
  1210.         )
  1211.  
  1212.         (if (= #CDROM_Device "tandemcd_pcmcia.device")
  1213.             (
  1214.             ( set #CDROM_Blocks 4 )
  1215.             )
  1216.         )
  1217.  
  1218.         (if (= #CDROM_Device "tandemcd_come.device")
  1219.             (
  1220.             ( set #CDROM_Blocks 4 )
  1221.             )
  1222.         )
  1223.  
  1224.         (tooltype
  1225.             (dest "CacheCDFS:CD32/CD32" )
  1226.             (settooltype "BLOCKS" ("%ld" #CDROM_Blocks ) )
  1227.             (settooltype "DOSDEV" #CDDevice_NC)
  1228.             )
  1229.  
  1230.     ))
  1231. ))
  1232.  
  1233. (complete 100 )
  1234.  
  1235.  
  1236. (makeassign "CacheCDFSInst" (safe))
  1237. (makeassign "CacheCDFS" (safe))
  1238.  
  1239.